//An example on how to return multiple values//from a function using an arraydeclare function getSomeArray() as stringSub Main()	dim i as string	dim r[0] as string   	r = getSomeArray()	msgbox(r[0] & " " & r[1] & " " & r[2])	msgbox(getSomeArray()[2])end subFunction getSomeArray() as string	dim k[3] as string	k[0] = "Jose"	k[1] = "L"	k[2] = "Cuevas"	return kEnd Function